home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1001_Button < prev    next >
Encoding:
Text File  |  1990-03-23  |  838 b   |  51 lines
  1. %case window field%
  2.     %HandleName%:%    %ControlHandle;
  3. %case create%
  4.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  5. %case dispose%
  6. %case mousein%
  7. %case update%
  8. %case activate%
  9. %case track%
  10.     if whichControl = %HandleName% then begin
  11.         if TrackButton (%HandleName%, where) then begin
  12.             {Do%Itemname%;}
  13.         end;
  14.     end;
  15. %case itemNr%
  16.     %DefineItem%
  17. %case dialog field%
  18.     %Enable?%
  19. %case init field%
  20.     %Enable?%
  21. %case auxiliary%
  22.     %if OK%
  23.     %elsif Cancel%
  24.     %else%
  25.         {----------}
  26.         Procedure Do%Itemname%;
  27.         Begin
  28.         End; {Do%Itemname%}
  29.             
  30.     %end if%
  31. %case filter%
  32. %case set%
  33. %case enable%
  34.     %Enable?%
  35. %case hit%
  36.     %if OK%
  37.         %Itemname%: begin
  38.                 result := true;
  39.                 done := true;
  40.             end;
  41.     %elsif Cancel%
  42.         %itemname%: begin
  43.                 result := false;
  44.                 done := true;
  45.             end;
  46.     %else%
  47.         %itemname%: begin
  48.                 Do%Itemname%;
  49.             end;
  50.     %end if%
  51. %case finish%